(defun c:hasphrd()

  	;HATCH ASPHALT ROAD

  	(IF LAYENTMAKE NIL(LOAD "MKLAYR" "\nFile MKLAYER.LSP NOT LOADED"))
  
  	(LAYENTMAKE "C-ASPHWPATT" "252" "CONTINUOUS")

        (command "-bhatch" "P" "ansi31" 5 0 (getpoint "Select Point") "")

        (LAYENTMAKE "C-ASPH6ROAD" "6" "CONTINUOUS")
        (C:HATBND)
  	(C:PROCP)
  	(COMMAND "ERASE")
  
	
)